home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / sym.aut < prev    next >
Text File  |  1991-10-18  |  2KB  |  98 lines
  1. ECHO "\rこれよりＳＹＳＯＰ宛メールの送信を行います"
  2. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  3.  $1="Q"
  4. ENDIF
  5. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  6.  IF ($60=="" || $61=="") || $62==""
  7.   ECHO "\r^G"
  8.   ECHO "SYM.AUT：フルオートモードでは全てを設定しておく必要があります\r"
  9.   GOTO E
  10.  ENDIF
  11.  CALL SYM
  12.  GOTO E
  13. ENDIF
  14.  
  15. LABEL S1
  16. ECHO "\r\r設定は以下のようになっています\r"
  17. ECHO "\r  1 フォーラム名  ：$60"
  18. ECHO "\r  2 送信ファイル名：$61"
  19. ECHO "\r  3 題  名        ：$62\r"
  20. ECHO "\r^G以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞\r"
  21. LOOKKEY 60
  22.  CASE "Y"
  23.   CALL SYM
  24.  CASE "y"
  25.   CALL SYM
  26.  CASE "N"
  27.   GOTO S2
  28.  CASE "n"
  29.   GOTO S2
  30.  CASE "E"
  31.  CASE "e"
  32.  CASE/TIMEOUT
  33. FREE
  34.  
  35. LABEL E
  36. $1=$60=$61=$62=$200=""
  37. END
  38.  
  39. LABEL S2
  40. ECHO "\r^G訂正したいものを番号で選んで下さい (1～3) (ﾘﾀｰﾝｷｰ不要)\r"
  41. LOOKKEY 60
  42.  CASE "1"
  43.   ECHO "\r正しいフォーラム名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  44.   INPUT $60
  45.  CASE "2"
  46.   ECHO "\r正しい送信ファイル名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  47.   INPUT $61
  48.  CASE "3"
  49.   ECHO "\r正しい題名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  50.   INPUT $62
  51.  CASE/TIMEOUT
  52.   END
  53. FREE
  54. GOTO S1
  55.  
  56. PROC SYM
  57. DO F
  58. IF $200=="A"
  59.  RETURN
  60. ENDIF
  61.  
  62. SEND "SYM\r",1
  63. LOOK
  64.  CASE "^JFORUM>"
  65.   RETURN
  66.  CASE "SYSOP 宛メール"
  67. FREE
  68.  
  69. WAIT "^J＞"
  70. SEND "1\r",1
  71. WAIT "^J本文"
  72. WAIT "\r"
  73. CMD U "$61"
  74. WAIT "^J修正 (1:修正"
  75. WAIT "^J："
  76. SEND "2\r",1
  77. WAIT "^J題名"
  78. WAIT "^J："
  79. SEND "$62\r",1
  80.  
  81. LABEL SY1
  82. LOOK
  83.  CASE "◆題名を入力して"
  84.   WAIT "^J："
  85.   ECHO "正しく題名を入力すれば立ち直ります："
  86.   GOTO SY1
  87.  CASE "^J確認"
  88. FREE
  89.  
  90. WAIT "^J："
  91. SEND "1\r",1
  92. WAIT "^J送信"
  93. WAIT "^J："
  94. SEND "1\r",1
  95. WAIT "^JFORUM>"
  96. ENDPROC
  97.  
  98.